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RMSINIT SWB, Initialize SWB for Wildcarding 
ae Y TB] M2 Get Next Director aieee Search 
“conpgre D es tory Specification’ with Pattern String 
ee oe rape n Direc sory Wildcard Context 
ere rnoe Ap my Token to Match MFD 
PARSE ri Parse Current Pattern Token 
PREV_BIR rip on — D reaver Name from Directory Specification 
PREV “PATTER ER, ackup to Previous Pattern Token 
88 APPEND _DIR hopend. irectory to end of biel, ++ +4 bee eae 
SET BASE, FIN 


Base eeressery and Determine its Posi 
FIND_DIR, Determine Current Directory Position 
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Facility: rms32 


Abstract: 
this module contains all the routines 
necessary to perform directory wildcarding 
in file specification processing. 


Environment: 
vax/vms 


Author: 
Tim Halvorsen AUG-1979 


Modified By: 


v03-013 DGB0020 Do 
Use full-length fi 
protected files. 


v03-012 RASO252 Ron Schaefer 13-Feb-1984 
Fix infinite loop caused by calling FMGSMATCH_NAME 
with a bad descriptor. Also clean-up a “7 ¥ of 
error paths to prevent looping and setup SWB correctly. 


v03-011 RASO232 Ron Schaefer 99-Jan-1984 
Have RMSNEXTDIR return an error if the SWB isn't there. 
The new error is RMS$_NOVALPRS. This is a consequence 
of RASO219. Could also be used to detect wild-card 
directory processing without saved context. 


v03-010 RASO219 Ron Schaefer 8-Dec-1983 
Change fwa references to FWAST_SWB to be a separate 
structure; use additional SWB Fields as temp storage 
and not random FWA cells. 


v03-009 RASO192 Ron Schaefer 13-Sep-1983 
Fix bug in parsing UIlC-format wildcard directories of 


ald G. Blair 06-Mar-1984 
n 


n 
b order to support access mode 
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rooted devices. Problem is caused by using the high 
word of the directory descripturs to contain the 
group-member flag. Also fix wrong register on 
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0 
0 
0 
0 error path. 
3 v03-008 KBT0583 Keith B. Thompson 12-Aug1983 
Clean up some fwa constants 
09 v03-007 KBT0558 Keith B. Thonegen 20-Jul-1983 
op Fix a bug introduced in KBT05 
v03-006 KBT0532 Keith B, Thompson 1 


=Jun-1983 
Make RMSINIT_SWB save r8, remove RMSSKIP_SUBTREE and 
make the SWA "defined in fwadef 


v03-005 KBT0524 Keith B. Thompson 23-May-1983 
Place this beast in with xpfn 
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roe om sac lonesome TSSEBCASES 90:80:21 WARCNDRCHRSGGLYBSARR1 P| | 
5 v03-004 KBT0512 Keith 8B. Thompson 17-May-1983 
“ eanclaber flags. 
5 v03-003 KBT0490 Keith 8. Thompson 10-Feb-1983 
Temporary fix so that the swb is the correct size 
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V03-002 KBT0474 nod 8 a yee 26-Jan-1983 
Fix a bug when parsin ae *,*;# when in the last sub- 
qirecter by putting n a check the first time through 
n nextdir to see if we are all the way down. 


v03-001 KBT0218 Keith B. Thompson 23-Aug-1982 
Reorganize psects 


v02-022 KEK0018 K. E. Kinnear 9-F eb-1982 
Fix ASSUME for SWB offset into translation buffers for 
new Length of FWAST_NAMEBUF . 


v02-021 JwHOO01 sottrey W. Horn 18-Jan-1982 
Fix broken subroutine branch. 


v02-020 TMK0025 Todd M. Katz 16-Dec-1981 
Rip out all SDI stuff in RMSNEXTDIR. RMOWILD will not 
(better not) be called for anytnine but files on disks. 
Also FWASB_DIRWCFLGS is orn set incorrectly on repeated 
searches involving ellipsis traversal because it is not 
oetng set to the value it had after parse before the match 
routine is called. Fix this bug by resetting FWASB_DIRWCFLGS 
to the value it had (before the first search began) before 
the match attempt is made. This will mean no change in it 

if there were no ellipsis, but if there were it will end up 

being set to its new value on a successful match. 


v02-019 TMKOO019 Todd M. Katz 25-Nov-1981 
Skip any subtrees rooted at null length directory 
filenames. Such subtrees are pruned, and their 
contents NOT searched. 


v02-018 TMKOO18 Todd M. Katz 18-Nov-1981 
Initialize certain control fields within the SWB to 
their correct values for UIC directories even if these 
fields are not needed for wildcard processing. This is 
to avoid confusion when these fields are looked at. 


v02-017 TMKO014 Todd M. Katz 12-Nov-1981 
Change a BBC to a BBCC so that the flag SWBSV FIRST is 
always cleared after the first time through RASNEXTDIR 


v02-016 RASO040 Ron Schaefer 26-0c t-1981 
Implement rooted directories for concealed devices. 
When setting the FID of the MFD, use the saved MFD_FI9D 
of the rooted directory. 

v02-015 TMK0010 Todd M. Katz 20_0ct_1981 


A check is made to see whether 1/0 Rundown is in progress 


ooo 
ODOOSOOOOCOOOSOSOOOOOSOSOOSOSOSOSOSOSOSOOOOOSOOSOSOOOOOOOSOOSOOOOOoOO 


SOoOSoSCSSOOOCOOSOOOCOOOCOOSOSOSOSOSOSOSOOSOOOOSOOOOoOSOS 
SOOGOCCOCSCOOSOSOCOSOSS SOOO SCSOOOOCOOCOOOOOOOCOOCOoOoOO 
ee a a ee ee ed ed dd 
AAAAA AAA AAPPINIPONININININYNYD 
—OODWNA NEW 9 OO NAME WIN 9 OO NAME WIN 0 OD NAME WIN O OONAUE Wwiry 


SOOOCCooooooooooooooooooCooooooooooooooooo 


SOooooooooo 
SOooooooooo 
SOOOOOCOOoSoSoSo 


one 


ome rooted directory changes and save the fwa 


"9 
DIRECTORY WILDCARDING 16-SEP-1984 00:40:21 VAX/VMS Macro V04- RM 
Breer T he $ei35ie) PANES Macro VO4=00 sent vo 


after every ACP call, and if is, RMOWILD is immediately 
terminated with a status of RMSS_NMF. 


v02-014 TMKO007 Todd M. Katz 28_Aug_1981 


Performance enhancements. Initially, all leading nonwild 

tokens are made part of the directory string, and their 
existance is confirmed. Then, each and e ory remaining token 

in the pattern string up to, but not including the first 
ellipsis, represents the pattern for the Eirpctery name that 

is to match it, and these are resolved. All branches below the 
level of the root of the first ellipsis must be searched for 
any and all directories. If there are no ellipsis, or above the 
root of the first ellipsis, crosswise directory tree traversal 
can only occur if wild nonellipsis tokens were encountered. 
After each directory name is resolved, a call is made to a 
matching routine to determine whether the directory — 

now matches the entered pattern. This routine returns partial 
or total success, and it can only return failure when it is 
impossible to match the trailing tokens while within a bounded 
ellipsis traversal. NOTE: the number of characters in a 
directory specification is Limited to 81 although theoretically 
it would be possible to have (8 levels * 9 +8... * 3 + 2) 

= 98 characters. 


v02-013 TMKO006 Todd M. Katz 21_Aug_1981 
Complete rewrite. The algorithm upon which this module had 
been formerly based was scrapped, and a completely new one 
substituted. The new algorithm guarentees that each and 
every directory specification matching an inputed pattern 
is touched only once by performing a ‘pruned’ pre-order 
traversal, and returnin onty those directories matchin 
the inputed pattern string. Pruned in the sense that no 
all directories are touched, but rather, as few as possible. 
Various optimizations have been implemented to reduce 
extraneous calls to the ACP, and several more, which are 
required, will be included within a succeeding enhancement. 
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Checked this in as new module. Previous edit history invalid. 
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v02-012 KEK0007 K. E. Kinnear 11-Aug-1981 
Change IFBSL_AS_DEV to IFBSL_PRIM_DEV where necessary. 
vO2-011 TMKOO0S Todd M. Katz 981 


11_Aug_1 
Delete errant ASSUME statement within FIND-DIRT It was 
pe le or needed with the addition of the new field 


vO2-010 TMK0004 Todd M. Katz 10_Aug_1981 
Correction of the parameter FWASC_MAXDIRLEN to its 
correct size of 81 resulted in a much larger SWB 
Since only 9 bytes are required (CJ are not copied 
into SWBST_PATTERN), a change was made to reflect this 
and to take advantage of a new scratch field, FWAST_WILD. 


v02-009 TMKO001 Todd M. Katt 29-Jul-1981 
Fix some problems with handling of bounded elipsis 


a a a a a a ee eS eB ee ee ee a a dd 
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and multiple wild card ee bet specifications. 

chenge included deletion of SWBSB_WCCLEVEL, extension 

of ; BS$B_ROOT to a word, the addition r) one tiles to 

SWBSW_FLAGS (SWBSV_ROOTS and minor alterations to 

the depth-first search algor thm in order to resolve 

the existing problems. Two routines (UP_PARENT and 

STRIP_NONWILD) were completely rewritten. 
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v02-008 PSK0003 Paulina Knibbe 27_Apr-1981 
Fix some problems with handling of FWASB_DIRLN 
v02-007 PSK0002 Paulina Knibbe 18-Nov-1980 


OOOOOOOCCOCOC Oo 
—OOONAUS WI "O”0 


Clear the wild Siege tory bit for trailing specified 
directories when there is a bounded elipsis 


v02-006 PSK0001 Paulina Knibbe 2-No 8 
Set the correct wild directory bit in the FWA if the directory 
name was originally specified by an elipsis 


vC2-005 MCNO0002 Maria del C. Nasr 03-Sep-1980 
Fix wh one to prevent infinite loop on parse of 
CA.B.*)]*.* when B does not exist. 


-1980 
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V02-004 REFORMAT Ron Schaefer 25-Jul-1980 

Reformat the source 
v003 TMHOOO03 Tim Halvorsen 05-FEB-1980 

if sdi device, return with mfd without accessing device. 
v002 TMHOOO2 Tim Halvorsen 04-JAN-1980 

fix C*.obj] from failin do check after copy_nonwild 


to 
which ensures that the directory up to that port exists. 
fix C...a...J to return C...a] as well as the subtree 
below it -=- required a check following bounded match 

to check if the elipsis exit should be taken immediately. 
add S$devdef to generate short Literals on checks. 


v001 TMHOO01 Tim Halvorsen 12-NOV-1979 
consolidate multiple asterisks from ([*,*) into a single 
asterisk so that ods-1 can use ([*,*]) (since character 
wildcarding is not yet done for ods-1). 
fix bug in nextdir so that a non-wild directory string 
is checked immediately to make sure that it exists. 
fix bug in next_chiid so that maperr is called with r8 
pointing to the fab rather than the swb. 
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48 ; 
rk ; symbol definitions 


Parycterraties 
finitions 
finitions 

it definitions 


; 1/0 segment definitions 
; i/o function codes 


; nam definitions 
; rms error codes 
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; system error codes 
; swb definitions 
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v04- RMSINIT_SWB, Initiatize SWB for Wildcard 5-SEP-1984 9:39:2) RMS.SRCIRMOWILD.MAR;1 - 
ef -SBTTL RMSINIT_SWB, Initialize SWB for Wildcarding 
8 p++ 
19 ; RMSINIT_SWB: initialize swb for wildcarding 
re 3 this routine takes the parsed directory specification, 
0 73; and recreates the input file directory specification, minus 
0 74; the delimiter brackets, in the SWB for later use. It also 
8 o? ; initializes various fields within the SWB for use later on. 
299 7 3; Inputs: 
O86 8 3 r9_ = ifab address 
4 0; r10 = fwa address 
00 : 
838 ; Outputs: 
00 ; RO success/fail 
0000 4 j-- 
0000 5 
0000 $ RMSINIT_SWB:: 
58 DD 444 3 PUSHL R8 3; save fab 
00 8 
000 89 ; 
000 4 ; Allocate swb buffer for expanded string 
00 92 ° 
58 4C AA 00 000 38 MOVL FWASL_SWB_PTR(R10),R8 ; already have one? 
05 br ie 0008 3 ROY ZUL #SWBSC_BLN/4,R2 i f struct 
° 3; size of structure 
60000000" EE 16 i 96 JSB RMSGETBLK1 : get space 
7D 50 34 001 97 BLBC RO,90$ 3 quit if no room 
08 Al gh 0 0016 98 MOVB #SWBSC_BID,SWB$B_BID(R1); set block id 
4C AA 1 DO OQOIA 99 MOVL R1,FWASL_SWB_PTRTR10) ; set ptr 
58 51 00 Bae 89 MOVL R1,R8 ; mov ptr to right register 
0021 02 ; 
0021 88 3: If the directory specification was not in UIC format, then recreate it in 
0021 04 ; the SwB keeping track of the number of nonelllipses tokens, the token number 
0021 05 ; of the first ellipsis (if there is one), and setting various flags as 
021 88 3 required. 
021 3 3 
021 8 
68 04 . } 09 5$: CLRL (R8) ; clear flags 
04 AB D4 10 CLRL SWBSB_MINIMUM(R8) ; and counters 
05 AA 90 0026 11 MOVB FWASB_OIRWCFLGS(R10),- ; save the wild-card context 
07 A8 9 \§ SWBS$B_DIRWCFLGS(R8) 3 present on entry in the SWB 
53 48 4 43 B 1 MOVAB SWBST PATTERN BUF(R8),R3; initialize pattern descriptor with 
10 ag 5 p F 314 L 3,SWH$Q_PATTERN+4(R8S ; address of pattern buffer 
56 0130 CA ; 15 MOVAB A$Q_DIR1(R10) Re ; obtain address of first descriptor 
5B 6A 1B EC 1 BB #FWASU_GRPMBR,(R10),70$ ; branch if UIC format 
57 0 D ; : MOVL #FWASC"MAXSUBDIR+1 ,R7 3 maximum number of dirs in a spec 
6 53 F i$ 108: TSTW (R6) ; end of directory names? 
6 i 0 BEQL 40$ ; branch if so 
O3 AB 9 4 1 INCB SWBS$B_ TOKENS gs Tce 3; increment number of tokens counter 
63 0486 66 2 46 2 MOVCS (R6),84(R6), TRS) 3 copy current directory into buffer 
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MOVB #*A/, 


WR SO OONAOUES WN 0 OONAUES WN" OOONOUFSW IO 
@ 
m 
oO 
a 


/,(R3)+ ; and append delimiter 
BBCC #FSCBSV_ELIPS,(R6),30$ ; ellipsis following this directory? 


(clear it so it's not dteet eyed again) 


0 
T 
E2 BBSS #SWBSV ‘penbntcimaicdt if this is the very first ellipsis 
06 (RB) ,20 3 encountered, set the ellipsis exists 
81 ADDB3 SWBS$6 TOKENS LEFT(R8),=- ; flag, and save the token number of 
A8 #1, SWB$B pARST_ECRE) ; ellipsis for future reference 
83 2E2E BO gps: MOVW #°A7..7, TRB) ; make delimiter into ellipsis 
0$: CLRW (R6) 3; initialize this slot to null 
ADDL2 #6 .R6 ; skip to next descriptor 
0 SOBGTR R7,10$ ; loop until done 
FE AS 2E2E 408 CMPW #*A/../,°2(R3) ; is there a trailing ellipsis? 
50$ 3: yes leave it 
DECL R ; no, remove trailing delimiter 
08 83 50$: SUBB3 R7,#FWASC_MAXSUBDIR+1,- ; compute the maximum success level 
05 SW8$B_MAXTMUM(R8) 


; presyaress °oe there are no ellipses 

BBC #SWBST_ELLIPSIS_EXISTS,-; but if an ellipsis was encountered, 
(R8) ,6 3; then the maximum level is reset to 

MOVB #FWASC_MAXSUBDIR+1,- ; allow for searches to the lowest 
SWB$B_RAXIMUM(R8) 3 subdirectory level supported 

60$: SUBL3 SWBSQ_PATTERN+4(R8).R3,-; compute the Length of the pattern 
SWBS$Q_PATTERN(R8) ; and put it in the pattern descriptor 

SSB eswest finst. (RO) ; set first time through bit 


04 ; 
05 


oc AB «53S «10 


QS 
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BSBW PARSE_ ; parse the very first pattern 
FWASB_DIRLEN(R10) ; mark no directory names yet 


R8 ; restore fab 
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97 5 
31 : ; if the directory specification is in UIC format, then eapene both group 
9 8 3 and member strings to three characters each, and store them fopether as 
97 3; the only token. provided neither is wild. if either or both is wild, then 
97 60 ; the wild str ngs are copied directly into the buffer without expansion, 
4 ee : and one token is created as before. 
97 363° 
57 #8 08 97 64 70$: MO¥L #FWASV_WILD_GRP,R7 ; start of directory wildcard bits 
§ 1 9A 65 BSBB UIC EXPAND { expand group portion 
5 it 9C $6 INCL a 3; skip to next wildcard bit 
—> F He 6S8B VIC J peng 3 expand member portion 
0202 8F B80 OOA rt) MOVW #*x0202,- ; both the minimum and maximum success 
04 ag OAs 6 SHBSE MENIMUM(RB) : levels are 2 for UIC directories 
2A2A BF OFE A B1 A6 0 CMPW =2(R3),#*A' ee’ ; last 2? characters = '*'? 
b¢ Is OAC 71 BNEQ 60$ : branch if not 
D Boat i DECL R : if se, 1 asterisk will do just fine 
CE 11 008 7 BRB 60$ 3; setup pattern descriptor 
ae 
008 76 ; expand the nonwild eee string out to three characters, and place 
ie 77 ; it in the buffer. if the prove/nester is wild, copy it into the pattern 
si ee : buffer as is. NOTE: Don't use SOBGEQ since the descriptor will have flags 
008 80 
008 $1 UIC_EXPAND : 
50 86 00 008 ¢ MOVL (R6)+,R0 ; get Length of string 
OD 6A 57 EQ 008 8 BS R7, (R10) , 30 : skip leading zeros if wild 
51 03 50 A3 00B9 84 SUBW3 = RO, #3,R1 3; number of leading zeros to insert 
F 11 008D 82 BRB 20§ ; get into loop 
83 0 90 OOBF 6 108: MOVB #*A/0/,(R3)+ ; store leading zero 
51 B67 00C2 87 DECW R1 3 count down 
F9 «614 «400C4 88 20S: BGTR 10$ 3 aS many as needed 
635 96 50 28 00C6 89 30S: MOVC3) RO,a(R6)+,(R3) ; store rest of string 
05 OOCA 390 RSB 
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-SBTTL RMSNEXTDIR, Get Next Directory to Search 


+ 
+ 


RMSNEXTDIR: Get next directory to search 


get the next directory which matches the wildcard 
pattern in the directory specification. 


inputs: 

R9 = ifab address 

R10 = fwa address 

R11 = impure area address 
outputs: 


R8 - destroyed 
RO = nmf if no more files to search, else status 


the fib is updated with the did of the next 
directory to be used in file searches. 


Be Se Ge Se Ge Ge Ge Se Se Ge Se Ge Ge Ge Sse Se Ge Ge Ge Seve Se 


RMSNEXTDIR:: 
MOVL FWASL_SWB_PTR(R10),R8 ; get swb address 
BEQL 5$ 3; branch if isn't one 


the very first time this routine is called, all leading nonwild tokens are 
copied into FWA Sosee ieteree their existance is verified, and a starting 
DID is setup in the FIB for the remainder of the token string. at this 
point, the minimum directory traversal string can be set, and a check is 
made as to whether the current uirectory specification is sufficient to 
match the entered pattern. note that if the base ends up as the MFD, the 
initial match attempt can be skipped (there is nothing to match) and 

; the first UFD can be retrieved. if all tokens are nonwild, then there is 

; nothing more to do and a status of success can be returned. 


BBCC #SWBSV_FIRST, (RB), 208 do only if first time through 
SET BASE ens, 


copy all leading nonwild to 


BLBS RO, TOS find the base DID, and return 
RSB if thereare any problems 
5$: en NOVALPRS 3 no preceding Sparse 
108: MOVB CUAsS DIR EN Cate} = 3 set the minimum success level 
SWBSB_MINIMUM(R8) :; for traversal 
TSTB SWBS$B_PATLEN(R8) : if all tokens in the entered pattern 
BEQL 11$ : were nonwild then immediately return 
CMPB FWASS_DIRLEN(R10) ,- : if we are at the bottom also return 
#FWASC_MAXSUBDIR+4 
BNEQ \¢ 3; else continue 
11$: BRW 110$ 3 return success and the DID 
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F 449 
2E AA % i 450 12$: TSTB FWASB_DIRLEN(R10) ; if there were leading nonwild tokens 
93 } F 4 BEQL 15$ ; with other tokens fo lowing them 
00 1 FA 4 BRW 70$ : then check for pattern-string match 
14 AB $8 DO OOFD 453 158 MOVL  § (RB), SWBSL_SCRATCH_PAT(RB) ; else move pattern of first dir name 
11 ! r : BRB 408 ; to search for into field & go search 
1 456 ; 
1 4 5 ; traverse down one level by getting the first subdirectory of the current 
1 $28 ; Neato’ | and appending it. under the following conditions, downward 
1 459 ; traversal is aborted in favor of Sroyere tae across: the SWB traversal flag 
1 rh 3; is set; the current directory's level is the maximum traversal level; the 
1 461 ; current directory has no subdirectories; the current erretiery represents 
18 $06 ; the MFD (i.e. the sole directory is the current directory 000000.dir;1). 
01 465 ; if the token string has been exhausted, or if the current directory has no 
010 464 ; subdirectories and is at the minimum traversal level, then there are no 
10 465 ; directories to be located. 
are 
O1A 95 010 468 208: TSTB SWBSB_PATLEN(R8) ; if token string has been exhausted 
0 12 0106 4} BNEQ 5$ 3; then signal no more files, 
0005 31 0108 470 BRW 0$ 3; otherwise continue 
2F 68 04 3 0108 471 25$: BBSC #SWBSV_TRAVERSE,(R8),45$; if we are to traverse, then traverse 
05 AB 91—«O10F Arg CMPB © SWBS$B_MAXIMUM(R8) , - : if we have reached the maximum 
2E AA 0112 47 FWASB_DIRLEN(R10) ; traversal level then branch so as to 
28 13 0114 474 BEQL 45$ ; begin traversing across 
0116 475 SSB #SWBSV_ELLIPSIS,- ; only traverse down other than first 
0116 476 SWBSL_SCRATCH_PAT(R8)  ; time through if have seen an ellipsis 
gg the 
0118 479 ; if the base directory (i.e. the directory whose file ID is in the DID 
Bite ret 3; of the FIB) is not the MFD, then continue the downward traversal 
118 482 ° 
54 0130 CA 7D HE 288 30$: MOVQ FWASQ DIR1(R10) ,R4 :; get first directory's descriptor 
0298 30 0120 484 BSBW CHK_MFD ; check for mfd, if so 
0c is 01 3 485 BNEQ 3; then continue the downward traversal 
04 A8 97 O1 486 DECB SWBSB_MINIMUM(R8) 3; otherwise decrement the minimum 
06 £0 0128 487 BBS #SWBSU_ELLIPSIS_EXISTS,-; traversal level, and the maximum 
20 68 012A 488 (R8),55 ; traversal level if there are any 
05 AB 97 «+O12C 8 6489 DECB WBS$B_MAXIMUM(R8) ; ellipsis in the entered patsere and 
1B «Oo 4 : rh BRB 5$ ; begin crosswise traversa 
0204 CA D4 4 1 492 408: CLRL FWAST_F IBBUF +~- ; clear the wildcard context within the 
135 49 FIBSL_WCC(R10) ; FIB to get the first euagtrectery 
90ge 30 4 5 494 BSBW NEXT SUBDIR : get first subdirectory of current dir 
53 50 €9 0138 495 BLBC RO,67$ :; branch if error occurred otherwise 
58 51 €8 0O1 496 BLBS R1,70$ ; see if dir spec now matches pattern 
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TORY 
XTDIR, Get Next Directory to Search 5- RMS.SRCIRMOWILD.MAR; 1 
13 0 649 
13€ 198 3 
13€ , ; traverse across the directory tree. if we are now at the minimum traversal 
15€ ; level, then there are no more directories to find, otherwise, we back up to 
135€ § 3; the level of a wild directory by aor eres off the lowest level directory, 
13€ ; calling match to retrieve the characteristics of the directory name to be 
13E 4; ores for, and repeating this grecess as a. as the pattern returned 
13€ 5 ; is nonwild. once the level of a wild directory has been reached, the next 
13€ $ ; directory at the same level matching the returned pettere is found by using 
13€ 07 ; the ste iopee off directory name to resynchronize the ACP. note that if any 
13€ 38 ; time match returns a status of total success, this can only be do to the 
; : 2 3; presence of an ellipsis, and any directory will satisfy the pattern. 
O13 4=— 511 
4 \§ 45$: $B #SWBSV_VALID_DID, (R8) * DID is no longer valid 
2E AA 91 «014 2} 508: CMPB FWASB_BIRLENTR10) ,- : if at minimum traversal level and 
04 a 014 14 SES een ; no subdirectory was found then exit 
0 14 014 a2 BGTR 5$ ; else continue with the crosswise 
0094 31 Bee 21$ BRWw 90$ ; traversal across the directory tree 
0302 0 biae 218 55$ BSBW PREV_DIR ; strip off the lowest level directory 
7E 54 D O14F 19 MOVa R4,-TSP) 3; and save its descriptor 
6 DD 0152 259 PUSHL (R8) 3 save current token context 
56 04 AB ys 0154 521 MOVZBL SWBSB_MINIMUM(R8) ,R6 3; set descriptor index of Ist wild dir 
0184 0 0158 256 BSBW MATCH 3; retrieve pattern of dir to search for 
68 8ED0 0158 5 POPL (R8) 3; restore current token context and 
54 8€ 7D O1SE 524 mMOVQ (SP)+,R4 ; descriptor of stripped of directory 
07 51 €E€8 0161 £525 BLBS R1,60$ ; if total success returned then branch 
02 €1 01646 5 $ BBC #SWBSV_WILD,- > if the pattern returned was of a 
E3 14 AB 0166 2§ SWBSL_SCRATCH_PAT(R8) ,55$ ; nonwild token then repreat process 
11 0169 528 BRB 65$ 3 otherwise continue across traversal 
0168 529 60$: SSB #SWBSV_ELLIPSIS,- 3 when total success is returned, set 
B168 ; 9 SWBSL_SCRATCH_PAT(R8) ; it up so anything will match pattern 
6C AD «554i H“(SSCiéCS*SLW 0170 3 65$ ADDL #6,R4, I1FBSL_RNS_LEN(R9) ; the stripped directory'’s length (plus 
65 54 28 Q17 53 MOVC ¢ Po :; 6 for .dir:1) & its name are together 
04B6 CA HEA 230 FWAST_NAMEBUF (R10) 3; used to resynchronize the ACP 
63 20203138 5249442E 8F 7D 017B 535 MOva #*A\.BIR;1 \,(R3) : append .dir;1 to the directory name 
0204 CA 01 DO 0186 536 MOVL #1,FWAST_F IBBUF+- 3 indicate that the ACP is to 
188 23f FIBSL_WCC(R10) : resynchronize by setting a bit 
0066 30 0188 538 BSBW NEXT SUBDIR z get next directory at the same level 
C50 €9 O18F 539 67$ BLBC nO. 80% ; error = go handle it 
251 €8 Q191 540 BLBS R1,70$ 3 success - check for pattern match 
AB 11 0194 541 BRB 45§ > failure - continue 1 level up 
i 
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70$: 


while 
it 
continue. 
if we are travers 

match the trailing 
across. 


accept nents 
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determine the match status of the current directory specification ogeiner 
the pattern. there are three possible outcomes. the match could be 
successful, in which case the next directory meeting the stated requirements 
has been found. the match could be partially successful indicating that 

he current specification matches the Lead 


otally 


ng part of the pattern 


nsufficient for a total match, and downward traversing should 


Beets f 
n 


the match could be a Fete) failure. this can only occur 
9 within a bounded ellipsis, and can never hope to 
okens from the current level. we continue by traversing 


#FWASV_GRPMBR,(R10),100$; if UIC then total success 
(R8) save the current token information 
SWBSB_MINIMUM(R8) ,R6 set descriptor index of ist wild dir 
SWBSB_DIRWCFLGS(R8) ,- reinitialize the directory wildcard 
FWASB_DIRWCFLGS(R105 context to its value before ist srch 
MATCH determine state of the match 
restore current token information 
total success - find dir'’s DID 
restore wild card 
directory context 
failure - traverse across 
partial success - set DID invalid 
and traverse down 


R1,100$ 
SWBSB_DIRWCFLGS(R8) ,- 
FWASB DIRWCFLGS(R105 


RO,5 
#SWBSV_VALID_DID, (R8) 
30$ 


05 


05 


ARDING 19r$6 
Next Directory to Search 5-SEP-1984 16:22: 


85$: 


100$:  BBSC #SWBSV_FIRST,(R8),110$ 
FIND DIR 
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if an error occurred during the attempt to find the next tipi ag © or the 
DID of the next directory, traversal of the current subtree must be aborted 
to avoid looping on the same error. if the directory specification on entry 


; was wild and the otrostery was not found, or was do to illegal directory 
e 


format, this traversal takes place immediately. in all other circumstances 


; the error is immediately reported. 


80$: $SB #SWBSV_ TRAVERSE, (R8) 3; set the SWB traverse flag 

BBC #FWASV_WILD_DIR,=- 3; if the directory specification was 
slg) Ne : nonwild then report the error 

MOVL IFBSL_LAST_FAB(R9),R1 |; obtain the address of the FAB 

CMP FABSL_STV(R1),- :; if the directory or DID could not 
#355 _ROSUCHFILE ; be found then continue the 

BEQL 85$ 3; crosswise traversal one level up 

CMP FABSL_STV(R1),- ; if the error was not do to illegal 
#SS$_BADIRECTORY 3; directory format then report the 

BNEQ 120$ 3 error seneec eres 

CSB #SWBSV_TRAVERSE, (R8) ; clear traversal bit, 

BRW 45$ 3; and go traverse 


: if there are no more files to search, return indicating no more files. 


90$: eens NMF ; indicate that there are no more 


; directories to search and return 


if a directory specification has been found that matches the entered pottern, 


; find the DID of the directory specification (unless it is still valid 
; and return success. 


; first time through then DID is valid 
; find the DID of the directory spec 
go handle any errors encountered 
else indicate success and 

return 


BSBW 
BLBC ~=—s_-« RO, 80S 
RMSSUC 
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\té 1% -SBTTL NEXT_SUBDIR, Find the Next Subdirectory 
ye Sip 
IF ‘18 ; NEXT_SUBDIR: find the next subdirectory 
1F4 6 : find the next subdirectory of the current directory specification. 
1F6 «6621; the next subdirectory nig t be the first subdirectory within the 
1F4 6 § 3 current specification, if we are currently traversing down the 
1F4 8606625; enraitery tree, or it aight be the next subdirectory after the last 
1F4 = 624 subdirectory located within this directory specification, if we are 
1F4 «60625; fre ersing across the directory tree. if a subdirectory is found, 
ee 2 g : t is appended to the current directory specification. 
IF 6 8 : inputs: 
1F4 «630: r8 = SWB address 
1F4 4 «6631; r9 = IFAB address 
by ° § 3 r10 = FWA address 
oir ? : $ outputs: 
O1F4 6 § : r0 = status 
O1F4 637; ri = false if no subdirectories left 
O1F4 638; true if subdirectory located 
O1F4 639; 
th 
O1F4 7) NEXT_SUBDIR: 
Birt ee 
Sted 645 : construct the file name to search for within the current directory 
Bee 646 ; spec iT ication. the SWB field SWBSL_SCRATCH_PAT contains information about 
1F4 647 ; the subdirectory we are to search for. *.dir;1 is always searched for 
O1F4 648 ; whenever we are ‘‘within’’ an ellipsis. or an ellipsis has been encountered 
O1F4 649 ; in the pod of the current specification; otherwise pattern information 
O1F4 650 ; is present within within the FWA field. 
a 
53 118A of oir re MOVAB SWBST_SCRATCH_BUF(R8),R3; obtain the address of the buffer 
018C CA 5 D 1F8 654 MOVL R3,FWASQ RNS+Z(R10) : and move it into the descriptor 
E1 O1FD 655 BBC #SwB$v_ECLIPSIS,- : the pattern in the buffer is 
05 14 A8 1FF 696 SWBSL_SCRATCH_PAT(R8) ,5$ : that of an ellipsis, then we are 
83 sA 99 65 MOVB #*A'e™, (R3)4 3; to search for *.dir;1 80 we move a * 
re o28 BRB 10$ ; into the buffer and go append .dir;1 
50 154A GA 7 660 5$: MOVZBL et ngs tebe ee bs oh ; create a descriptor of the directo 
51 116A 9A 661 over SWBSL- SCRATCH PAT+2(R8) ,R1 > we are to search for in r0/ri1 and 
63 106841 5 28 F 066 MOVC RO sparse PATTERN+4~ : move the name of the directory 
3 663 (R8)CR1),TR3) : into the buffer 
83 aig 313 or DO 1 665 10$: MOVL #*A\ .DIR\ (R3)+ 3; append the file type to the dir name 
3 31 F 0 1¢ $96 MOVW #*a's 1", (R3)+ 3; append the version number to the name 
0188 CA 18C CA OC 1 66 SUBL3 FWASQ_RNS#+4(R10),R3,- : compute the Length of the dir name to 
3 008 FWASQ_RNS(R10) ; be searched for into its descriptor 
9 670; 
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3; the DID of he current directory specification must be found and placed 
; in the FIB in order to perform searches using the ACP. 
OA 68 93 BBSC #SWBSV_FIRST,(R8),15$ ; if this is the first time through 
BBS eayesy VALID_DID,- 3 or the DID is still valid, then it 
(R8),15$ : is not necessary to find the D 
BSBW FIND DIR ; if there is any problem finding the 
BLBC RO, 70$ ; DID of the current specification 


; return immediately, else continue 


required as input to the ACP (or the routine which is responsible for 
calling the ACP) is that a descriptor of the FIB exist in FWAS$Q_FIB(R10), 
that name eteing wildcarding be turned on within the FIB, and that the 
descriptor of the result buffer be initialized with the size of the 
maximum possible file name string. RMSSTALL also requires that general 
register R& contains the address of the FAB. 


tt Sete Ge Ge Ge Ge Ge Ge 


40 8F 9A 5$: MOVZBL #FIBSC_LENGTH,- : load the Length of the FIB 
10 AA WA$SQ_FIB(R105 ; into the FIB descriptor 
O1F4 CA GE MOVAB FWAST_FIBBUF (R10) ,- ; load the address of the FIB 
14 AA FWASQ FIB+4(R10) ; into the FIB descriptor 
3C 695 MOVZWL #FWASS_NAMEBUF +- 3 initialize the Length field 
69 FWASS_TYPEBUF +- 3; of the result descriptor 
69 FWASS_VERBUF ,- 3; with the maximum size that 
0170 CA O12E BF 698 FWASQ-NAME (R10) : a file name can be 
0100 8F B80 699 MOVW #FIBSA_WILD,- : set the bit within the FIB which 
0208 CA 700 FWAS$T_FIBBUF +- ; indicates that a wildcard name 
701 F IBSW_NMCTL(R10) 3; search is to be performed 
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the ACP will search for the next directory within the current director 
speci segt on, whose pie is already resident within the FIB, because the 

name string wildcard bit has been set and the inpyt descriptor potnts to a 
buffer containing the string to be searched for. if the FIB field FIBSL_wCC 
has been cleared, then to the ACP the next ¢ vostery is the very first 
ubdirectory in the current directory specification which matches the pattern 
n the buffer. on the other hand, if this same field has been set to one, 
then the next directory is the first sub irectory in the current directory 

; specification which matches the pattern in the buffer, and follows the 

; nerreeeary described by the descriptor FWASQ_NAME (R10) (contains the 

; address of the buffer containing the poogicos tery 8 name), and the longword 

IFB_L_RNS_LEN(R9) (contains the length of the subdirectory's name). the 

; following are the parameters required by the ACP to be present on the 

current stack when it is called. 


P1 #10$_ACCESS - ACP function code 
rs FWASG_RNS(R10) - address of the input name descriptor 
P IFBSL_RNS_LEN(R9) - longword to recieve result name's 


length, and input as previous 
position in directory 

P4 FWASQ_NAME (R10) - address of result descriptor and 
input to ACP as previous position 
in directory 

P5 0 

P6 0 


; of the FAB into R8, and go 

; place P5 & P6 on stack 

; push result descriptor address - P4 
; push Length field - P3 


20S: MOVL —_IFBSL_LAST_FAB(R9) .RB 


; push input name descriptor - P2 
; set ACP function code in R 
; call the ACP and wait for reply 


v 
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MOVZWL #10$_ACCESS,RO 
JSB RMSFCPFNC 


BBS #IMPS$V emai 
(R11),75$ 

MOVL FWASL SWB_PTR(R10) ,.R8 
RO,80$ 


if 1/0 Rundown is in progress, 

then RMOWILD is prematurely aborted 
recover SWB address 

branch if no errors 


the ACP found the next pyetirectory - extract it for processing. if the 
directory name has a null length, go resynchronize the ACP and find the 
next qtrectory. subtrees rooted at null length directory filenames are 
; pruned. 


),R4 3; get a descriptor of the result's file 
05,R5 ; mame by chopping off the substring 

; .dir;1 and resetting the pongeh 

; if cull Length, go resynch ACP 


40$:  MOVZWL IFBSL_RNS_LEN(R9 
ROVAR” FWAST _NAMEBUF (R1 
SUBL2 #6, R4 


£24 
if the file found by the ACP was the MFD itself (i.e. the file 000000.dir;1) 


then skip it by real ing the ACP giving it shies file as its current position 
within the MFD. this is so directory specifications such as [*...J], (*], an 
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NEXT SUBDIRA Find the Next Subdirectory ‘SasEp-19Re Sorsoiey FARS eecT GSO ye mae. 1 age 18, 
i ; C*,*] won't return the MFD. 
0135 764 BSBw HK _MFD ; check for mfd, if so the reset 
19 3 766 BEQL 5$ ; and resynchronize the ACP 
i : if the directory was given in UIC format (but wild !!), then make sure 
780 ; only numeric directory names will be accepted as valid UIC format names. 
7. 
1C 6A 18 1 72 45$: BBC #FWASV_GRPMBR,(R10),60$ ; branch if not in UIC format 
$$ 54 D ; 718 MOVQ Renn ; duplicate result name descriptor 
30 61 = «91 F 775 50$: CMPB (R1),.#*A'0' ; if the name coallates lower then any 
go 1¢ : £76 BLSSU ; valid UIC name - traverse across 
37 1 91 9 77 (R1)+,#*A'7" ; if the result name coallates higher 
$6 1A 97 4h BGTRU ; then any valid UIC name, then 
F3 5 F5 44 444 SOBGTR kRO,50$ ; go return no more files 
06 54 O01 9¢ Os 781 CMPL R486 :; if the result name is 6 numbers lon 
07 «13 Hy BEQL «= 08 ; then it is a valid UIC name . 
0204 CA 01 00 § Al 784 55$: MOVL #1, FWAST AS seam 3 resynchronize the ACP to continue 
0246 785 FIBSL_WCT(R10) ; the search, reload the address 
AB 11 " f § BRB 20$ ; look for the next subdirectory 
O2A 788 ; 
02A 789 ; append the new subdirectory name to the current directory speciiication 
~ p30 3; and return success - i.e. a subdirectory was found. 
AB 792° 
0223 30 A 793 60$: BSBW APPEND_DIR 3; append the subdirectory 
51 O01 400 AB 794 MOVL #1,R1 : indicate that a subdirectory was 
50 01 00 AE 795 65$: MOVL #1,R0 : found by setting both r0 and ri 
05 3! f 0$: RSB 3; before returning 
83 798 75$: RMSERR NMF 3 setting a default error of no more 
05 : 444 RSB ; files in RO and returning 
8 Q1 ; 
028 8s ; we divide ACP errors into two catagories - fatal and nonfatal. nonfatal 
B 03 ; errors, such as no more subdirectories within the current arrec tory 
8 4; specification are handled by this module. fatal errors maybe handled by this 
B 5 ; module depending upon their nature. both types of errors usaully result in 
B $ 3; the traversal continuing, but in a crosswise manner one level up from the 
: O8 3 level of the current directory specification. 
B e& 
0910 8F 50 1 B 10 80$: CMPW RO, #SS$_NOSUCHF ILE ; if. the ACP was unable to find a 
1 3 BD 1 BEQL 3 subdirector return no such file 
0930 BF 5 1 BF 1 CMPW RO, #SS$_NOMOREF ILES ; if the ACP found no more files in the 
1 3 C4 1 BEQL 90$ 3 sequence return no more files 
5 D C6 14 PUSHL R ; save the SWB address 
58 244A D C 15 VL IFBSL_LAST_FAB(R9) RB; storing other errors requires a(f AB) 
ce 16 RMSERR FND,RT 3 set default error 
OOOO000O0'EF 16 D 1 $B RMSMAPERR 3 map to RMS error 
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58 BED) D7 1 POPL R8 ; restore SWB address to R8 
0 4s KSB 3; return fatal error 
51 % dB 90$: CLRL e} ; indicate that no subdirectory was 
CF 1 DD BRB 65$ 3; found and no fatal error 


ee en cc 
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é .SBTTL MATCH, Compare Directory Specification with Pattern String 
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MATCH: compare directory specification with pattern string 


this routine is responsible for comparing the current directory 
specification with the current pattern str "9; it makes this comparison 
one token/pattern at a time, recursively calling itself with the 
remainder of the pattern string and/or directory specification when it 
finds the c irrent token matches the Syren directory name. the 
algorithm employed wilt try all possible matching combinations when 
ellipses are involved inorder to attempt to find a suitable 
configuration. note that it is in the very nature of the directory 
wildcarding algorithm, that this routine can fail only when we 

have traversed down too deeply, because of an ellipsis, such that the 
input pattern can never be matched. most often, a status of total 

or partial success is returned, and in the latter case, information 
about the next directory to look for is returned as well. 


eupereerer index of current directory name 
Sw 


75 
co 
nun 


fwa 

outputs: 

rO = true if match was successful, false for fatal 
ri = degree of success - total or partial 
meaningless if r0 = false 


FWASB_DIRWCFLGS is set appropriately if the match was totally 
successful, trashed otherwise 


POPIPORIPOPIPONINIPONINYPIPOPUNPONPONoNonononononopopnononororronr 


\-h 4-4-1 -4 4-4-4444 4444444444 


SWBSL_SCRATCH_PAT contains information about the next directory to search fo 
when a status of partial success is returned 


Oo Be Be Oe Oe Oe Be Oe Oe Os Oe Os Os Oe Oe Be Oe Oe Se Oe Se Oe Se Se Se Ge Se Se Se Se Se Se Se Ss Ses ss 
~. 
> 
co 
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- 
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ADOAAOCOQMMIMNUUUMMN UU ES BB ERE EEE PW 
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LJ 


MATCH: MOVQ FWASQ_DIR1(R10)CR6],R2 ; get current directory's descriptor 


rorororory 


AAO 
GOON 


if there are tokens penpraene but no directories, this means that not 
enough of the tree has been downward traversed to match the input pattern 
string. a status of partial success is returned so that the downwar 
traversal will continue as is required. there is one exception. if the 
current token is an unbounded ellipsis (and thus the last token), i 
aeseaes Sue empty current directory, so a status of total success is 
returned. 


oO 


o 

4 

> 

co 
SN 
~ 


7? TSTB Sye88 PATLENCRS) ; if there are no more tokens left 
$ : then branch to handle cnet condition 
R : if both tokens & directories are left 
: branch to handle that condition too 


f the current token is an unbounded 


2. 09.00.09 00 09 CD 09 CD Cd C9 00-09 00 C9 Gd Cd Cd Cd Cd Cd OD Cd Cd CD OD G9 OD CD Cd GD C9 CD Cd CD G9 CD CD CD 
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10$ 
80 BBC #SWBSV_ELLIPSIS,- 
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MATCH, Compare Directory Specification w eet Pi 8:39 :2] RMS.SRCIRMOWILD.MAR; 1 . (9) v04 
07 68 F 1 (R8),1$ ; ellipsis then return success, else 
03 68 if 0 F ee BBS #SWBEV_BOUNDED, (RB) ,18 3 return partial success as the current 
0097 1 F BRW 120$ 
0079 1 F 4 1$: BRW 110$ 
FE BB 
FC $ ; if there are both tokens and directories remaining, and the current token 
FC 8 ; is an unbounded eit ioeis (and thus the last token), we match the current 
FC 9 ; directory with the ellipsis, move onto the next directory, and recurse. 
FC 0 ; matching the directory with the ellipsis requires adjustment of the 
FC 91 ; directory wild card context. 
Be 
00. =«6«€1 FC 94 10$: BBC #SWBSV_ELLIPSIS,=- ; if the current token is not an 
OD 68 A; 95 (R8) ; ellipsis branch, but if it is an 
64 68 01 #4€1 030 96 BBC #SWB$V_BOUNDED, (R8) ,95$ ; unbounded ellipsis, then match the 
Bebe 97 ; current directory against the 
304 898 ; ellipsis, and go continue 


: directory specification is too short 


E11 


Page 


, and it is impossible 


ps 
the current token is 


s address in r$ 


sis continue rollback 
directory to ellipsis 
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4 900; 
4 9 ° 3; if there are both Fevens and directories remaining, and the current token 
4 3 § : is not a bounded ellipsis, then the action take depends upon the nature of 
4 3; the token. if = token is a bounded ellipsis, the current directory name 
4 4 4 ; is matched age nst the ellipsis bounds. if the mete? succeeds, we recurse 
4 5 ; with the next token and directory. if the match fails 
4 9 $ 3 to ever match the entire input pattern from the current errec tory 4 ti we 
4 4 : return failure, otherwise, we match the current directory with the ellipsis 
4 3 : and recur eg with the next qirectory name. finally, 
04 909 ; not an “7° te we match it directly with the current directory name. 
4 10 ; success is andled as above. failure means that we must have prematurely 
4 11 ; matched an ellipsis bounds. our course of action is to back up to the last 
4 12 ; ellipsis, match the bounds directory to the ellipsis, and continue the 
4 913 ; recursion. 
4 914; 
8 915 
we 4 218 208: mMOva R2,-(SP) 3 save the current directory descriptor 
OOCA 0 8 07 #91 BSBW NEXT_PATTERN : roll forward to the next token 
52 8E D 8 318 MOVa (SP)F,R2 3s restore the directory descriptor 
54 8 AB 9A 0300 920 308: MOVZBL SWBSB_PATLEN(R8) ,R4 3; create a descriptor for the current 
55 3 AB 9A 8 11-921 MOVZBL SWBS$B_PPOS(R8) .R 3 token by 3 tig its Length into r4 
55 10 a8 CO 0315 3¢ ADDL2 SWBSQ~PATTERN+4(R8),R5 : and computing it 
52 FFFFOQOOO 8F CA 0319 9 BICL #*XFFFFOO0O0,R2 ; clear any stale FSCB bits 
eae | 16 0320 4 4 JSB FMGSMATCH_NAME 3 test for token-directory name match 
05 50 3 6 5 BLBC RO, ; branch if no match 
O00A8 0 9 9 § BSBW NEXT_PATTERN 3; if they match, roll forward to next 
ee 63 ; 4 5 BRB 100$ 3; token, and go recurse once more 
0158 30 O32E +4 40$: BSBW PREV_PATTERN ; roll back to previous token and if it 
27 68 00 4 0331 930 BBC #SWBSV_ELLIPSIS,(R8),90$; isn't an elli 
005F 0 0335 931 BSBW SE 3 otherwise matc 
07 38 91 05358 336 CMPB R6, FFWASC_MAXSUBDIR : if we are at the maximum depth then 
1 1E Bese 93 BGEQU ; 99 return failure otherwise go 
0138 CA46) «605 «6(033D)0S 934 TSTL FWASQ_DIR1+8(R10)CR6] ; if there are no more directories, go 
26 «412 #0342 935 BNEQ 100$ 3; test if pattern can ever be matched 
0 rf 338 : continue the recursion 
03 As 83 O3c4 336 50$: SUBB3 SWBSB_TOKENS LEFT(R8),- ; if we are at a directory depth such 
54 05 AB 0347 939 SWBSB-MAXIMUA(R8) ,R4 ; that the input pattern can never be 
2E AA 54) «691 «034A 940 CMPB R4 FWASB_DIRLEN(RI0) ; matched, go return failure, otherwise 
. See ae of 33) BGEQU § 1106$ 3 we go return partial success 
50 04 8 25 308 60$: CLRL RO : if we are to return failure we clear 
51 D4 8 52944 CLRL R1 3 both general registers r0 and ri 
05 0354 945 RSB : and return to recurse upwards 
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if there are neither tokens nor directories left, then the directory 
specification does match the wey te and so we go return total success. 

f there are no tokens left, but there are directories, this means we 
must have yyy | matched an ellipsis bounds. our course of action 
is to backup to the Last ellipsis, match the bounds directory to the 
ellipsis, and continue the recursion. 


70$: TSTL Rg ; if there are not any tokens or 
het 1208 ; directories then go return success 


PREV_PATTERN ; otherwise backup one token 


Oo 
_ 
MW! 
onr 
wo 
OW 


; when a rollback to the Last encountered ellipsis is specified, the 

; directory matching the ellipsis’s bounds is now matched against the ellipsis 
; itself, the wild card directory context is appropriately altered, and we 

3; attempt to continue the matching process from this position. 


90$: BSBW PREV_PATTERN 3; now rollback one token and one 

DECL R ; directory, unless can't back up any, 
RO,60$ ; and if token is not an 
BBC #SWBSV_ELLIPSIS,(R8) ,90$; okt tpe ts continue rollback, otherwise 
95$: BSBB SET_wCt 3; match dir to ellipsis and continue 


o- Ono 


—mmnow 
WOOOOOOOOOOOOOOOOOOOOOOOOOO 


DPD DSA 


OP PPP PP PP POHL MOOMOOOOOOOS 


: we want to see if the remaining ereecery specification matches the 

3 remaining pattern tokens. Thus, we increment the directory descriptor index 
; A diye of the next directory, and we recurse by having match 

3; call match. 


100$: CMPB 6, #FWASC_MAXSUBDIR 
BEQL 12068 


R6 
BSBW MATCH 


co0o0 0000. SNS SINS PA AAA AA AAA MMIII 


MEW SO OD NAUS WIN O OO NAULS WN O OONOAULS WOW 


if we are the maximum directory level 
then go return total success 
increment dir index to next position 
see if remaining dir % tokens match 
return final result 
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yOe-Ob0 MATCH, Compare Directory Specification w gS 13be 1 Ses FRMS  SRCIRMOWILD MAR: 1 " 3) 
q 7 
7 § :; if a status of partial success is wt be returned ee register r0 is 
7 ; set to one, general register rl is cleared, the information about the nex 
7 91 ; directory to search for is place in the temporary buffer SWBSL_SCRATCH_ PAT, 
f 3 3; and we return to initiate upwards recursion. 
75 (994° 
51 04 7 95 110$ CLRL Ri pa artial puaceee requires a zeroed ri 
14 A8 68 00 7 39 MOVL (R8) ,SWBSL_SCRATCH PAT (Rb) put token characteristics into buf 
0 E1 7B 99 BC aswesv F LIPSIS_EXISTS,=- : if no él Gale exists in the input 
14 8 7D 44 (R8) ,13 : pattern go return partial success 
EO 7F 99 BBS #swesy oe 3 the current token is an ellipsis 
10 68 } 1000 (RB) ,13 : go return partial success 
EAA 91 8 3 1001 CMPB FWASB DIR 4 i (R10) ,- ; f there there are ellipses but they 
6 AB $6 1 8 Sue $B FIRST WE (R8) ; all follow the current token then 
09 =ost1F 8 88 100 BLSS 130$ go return partial success 
88 SA 1004 BISB #SWBSM_ELLIPSIS!- : Otherwise set the ellipsis and wild 
0 1005 WBSM_QILD,- : bits in the returned buffer so that 
14 08 05 0388 1006 SWBSL— “SCRATCH. PAT(R8) : *.dir;1 will be searched for and 
11 th) 100 BRB 130$ ~ : go return partial success 
$3 1a 
$390 1010 ; if a status of total success is to be returned, both general registers r0 
0390 1011 : and ri are set to one before we return to initiate upwards recursion. 
0390 1018 ° 
51 01 dO $390 1014 1¢08: MOVL #1,R1 ; for total success, set both 
50 01 DO 0393 1015 130$: MOVL #1,R0 : poner es registers r0 and ri 
05 0396 1016 RSB ; before returning 
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SET_WCC: maintain directory wildcard context 


this routine adjusts the Srras tory wild card context so that it is 
consistant with the current d eeesery specification. it is only 
called when a directory name is matched to an ellipsis beconatng 
wild, and coeur? -98 that the geereer rate bit (corresponding to its 
level-1) be set within this field. 


inputs: 
r6é_ = number of bit to be set after shifting subfield 
r10 = fwa 

outputs: 


FWASB_DIRWCFLGS with a context appropriate for the current 
directory specification 


WOOO OOOOOOOOOOOOOOOOOOOOOO + 
S99 99 


50 0608 


SUBL3 R6,#FWASC_MAXSUBDIR+1,R0; get Length of subfield to be shifted 
51 O05 AA 50 ; 


EXTZV -RO,- extract the FWASB_DIRWCFLGS subfield 
FWASB_DIRWCFLGS(R10),R1 ; to be shifted to fhe left, shift the 

ROTL #1,R1,R subfield one bit to the Left, 

INSV R1,R6,R reinsert the shifted subfield, and 
FW set the bit seresepeneas to the 

Ree R6,FWAS e 


iw 

— 
mo wNM 
—— Oo 


51 
0S AA 50 56 


>>> 
ww 
a a ed ed = od wd = od 8 8 od 


directory now matching the ellipsis 
return 
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CHK_MFD, Check Current Token to Match MF 5-SEP-1984 16:22:41 CRMS.SRCIRMOWILD.MAR;1 (23) 
} § -SBTTL CHK_MFD, Check Current Token to Match MFD 
! Sm 
g; > CHK_MFD: check for mfd 
! 8 ; this routine checks the current token to see if it is the mfd 
1060 : inputs: 
1 $3 : r4/r5 = descriptor of current token 
! °7 ; ri0 = fwa, particularly fwaSt_fibbuf 
$9 : outputs: 
$ : Z-bit = set iff mfd 
: $ its 
1991 MFD_FID: 
00040004 ! es we wn <FIDSC_MFD@16>+FIDSC_MFD ; fid of the mfd 
30 30 30 30 30 30 1974 = -ASCII \000000\ z ascii name of mfd 
1978 CHK_MFD 
F3 AF D1 107 CMPL B“MFD_FID,- ; if the base arenes (i.e 
O1FE CA 1078 FWAST—F IBBUF += : directory’ hese file 18 is” - the DID 
4 F IB$W_DID(R10) ; of the FIB) is not the MFD, then 
10 12 1080 BNEQ 10$ 3; can't be the mfd 
54 06 861 1081 CMPW #6,R4 ; if the file Pte not have opaes'sy,.24 six 
0B 12 10e6 BNEQ 10 : chars then it can't be r; 
65 EA AF 01 108 CMPL §B“MFD_NAME, (RS) : if the directory isn't 000000.dir; if 
05 12 1084 BNEQ 10$ : then continue the downward traversal 
04 AS E4 AF 81 1085 CMPW B“MFD_NAME ,4(R5) ; 
05 1086 10$ RSB 3 return 
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RMOW Dd! 
vo4=000 cH 
-SBTTL NEXT_PATTERN, Skip to Next Pattern Token 
++ 
NEXT PATTERN: skip to next pattern token 
skip to the next token in the pattern string. a 


token is defined to be any directory name or an 
ellipsis. after skipping to the next token, it 


D 
D4 1 
at Tae 
1091 
D4 1091 ; 
D4 1 35 3 
D4 1095 ; 
D4 1094 ; 
D4 1095 ; 
Dd 1089 
D4 1 38 ; is parsed. 
D4 1 : 
D4 «(1 3: inputs: 
D4 11 
+ 1 § 3 r8 = swb address 
D4 1104 ; outputs: 
D4 1105 ; 
Dd 1107 
6 D4 1108 NEXT_PATTERN: 
03 68 00 €0 B308 1109 BBS #SWBSV_ELLIPSIS,(R8),10$; if the current token is not an 
03 a8 (97 0308 1110 DECB SWASB_TOKENS_LEFT(R8) =; ellipsis, decrement the token counter 
01 A8 80 0308 1336 108: ADDB2 SWBSB_PATLEN(R8),- ; position the pattern offset 
8 A8 tt 1%% SWBS$B_PPOS(R8) ; to the next delimiter 
02 AB 91 O3SEO 1114 CMPB SWBSB_PPOS(R8) ,- ; if there are no more tokens (i.e. we 
OC As O3E3 1115 SWBSQ~PATTERN(R8) ; have reached the end of the token 
07 1€ O3E5 1116 BGEQU PARSE PATTERN ; string) or if the next token is an 
03 €1 O3E7 1117 BBC #SWBST_DELIMITER,- 3; ellipsis, then there is no 
03 68 Q3E9 1118 (R8) ,PARSE_ PATTERN ; need to bypass the delimiter token 
02 AB 496 O3SEB 1119 INCB SWB$B_PPOSTR8) ; too, otherwise, there is such a need 
O3SEE 1120 :; drop thru to parse_pattern 
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1} § -SBTTL PARSE_PATTERN, Parse Current Pattern Token 
Ne i 
1 $ ; PARSE_PATTERN: parse current pattern token 
11 8 : set the length and characteristics flags of the 
1 Fs : current token in the pattern string. 
i 1: inputs: 
1 5 : r8 = swb address 
1 5 : outputs: 
11 $ : swb$b_patlen = Length of token, 0 if none 
1 3 3 swb$b_flags = flags describing token 
Hie i 
1126 PARSE _PATTERN: 
114 BICB2 #SWBSM_ELLIPSIS!- ; clear status flags 
1144 SWBSM_BOUNDED! - 
1145 SM_WILD!- 
1138 BSM_DELIMITER, (R8) 
114 MOVQ SWBSQ"PATTERN(RS),R2 =; get string descriptor 
1108 MOVZBL BYSSE POS AS) ; current offset into string 
114 ADDL R1,R ; address of string left 
1150 SUBL R1,R2 ; length of string left 
1151 BEQL 50$ 3; branch if nothing left 
HE 
1136 : check if token is an ellipsis 
1156 ° 
1139 20$: CMPL R2,43 :; 3 characters left? 
1158 BLssu 10 : branch if not 
1159 CMPW (R3),#*A"..' 3; ellipsis? 
1160 BNEQ $ 3; branch if not 
1161 BISB2 M#SWBSM_ELLIPSIS!- 3; mark ellipsis is current 
1108 SWBSM_BOUNDED !- 
116 SWBSM_WILD, (R8) 
1164 CMPL #3 : enything following ellipsis? 
1165 BGTRU 3; branch if yes 
1166 CSB SehESY SOUNDED. {RS} ; mark unbounded 
1167 5$ MOVL #3,R2 3; set Length of ellipsis 
1168 BRE 50§ 
183 
11% : find detimiter following token 
1173 - 
1174 108: LOCC #*a*.* RZ, (R3) : find next dot in string 
1175 BEQL 3; branch if not found 
1128 SSB 8 WOtV DEL IAITER. (R6) ; assume 1 char, delimiter following 
Wee ys R ” 3; if there are 3 characters left 


$SEP=1986 90:22:41 ERMS.SRCIANOVILD MAR: 1 


then check for ellipsis following 
ranc f not 
f so, set no delimiter after token 


length of token passed by 
search token for wild * 

if found, set bit 

search token for wild % 

if not found, set Length 

mark token has wild characters 


length) 


set token Length 


RMOW DIRECTORY WILDCARDING 
vou~000 PARSE_PATTERN, Parse Current Pattern Tok 
2E2E BF 01 A 8) 4 1179 CMPW (R1),#*A".." : 
06 ~=«1 4 11 » BNEQ 3 
r i é CSB #SWBSV_DELIMITER, (R8) s 
4 11 3 
“ : 1} : : if token has wild characters, set wild flag 
439 11 $ 
25 50 ge 439 1187 30S: SUBL2 R0,R2 3 
63 «5 3A A 043¢ 1188 LOCC = #*A®" ,R2, (R3) : 
3 12 0440 1189 BNEQ 3 
63 «652 § 3A 0442 11 9 LOCC #*A'S" RZ, (R3) : 
4 13 0446 11 BEQL 3 
Ree 1136 40$: SSB #SWBSV_WILD, (R8) : 
44C 119 
peer 1194 ; 
44C 1195 ; set length of new token in string (r2 = 
044C 1138 3 
e083 119 
01 A8& 52 90 44C 1198 50S: MOVB R2,SWBS$B_PATLEN(R8) 3 
05 0450 1199 RSB 3 


return 
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yoenb08 PREV_DIR, Strip one Directory Name from ~$eE 38 99 :39:2) YAMS SRCIRMOGILD-MARS 1 ° (38) 
: } ] -SBTTL PREV_DIR, Strip one Directory Name from Directory Specification 
42) 4504 i 
" ! } 5: PREV_DIR: strip one directory name from directory specification 
451 1 § : strip the last directory name from the current 
? : ! 3 ; directory specification being built. 
451 1210 ; inputs: 
$2} 1211 ; 
451 1 1 : r10 = fwa address 
451 1213; 
a3 ! 13 ; outputs: 
451 1 18 : r4/r5 = descriptor of ny 5 directory name 
rh ! : 3 r0 = false if no names left to strip, else true 
451 1 i$ fee 
451 1220 
451 1221 PREV_DIR 
16 6A 18 €1 0451 1 § BC #FWASV_GRPMBR,(R10),10$ ; branch if not uic format 
14 10 bea3 1 BS8B 10$ 3; strip member portion 
c 50 G? 457 1224 BLBC RO,90$ : branch if nothing left 
50 0130 CA 3 O45 1225 MOVZWL FWA$Q_DIR1(R10) RO ; obtain Length of group portion 
0130 CA 54 AO QO45SF 1 § ADDW R4,FWASQ_DIR1(R10) 3; concatenate group and member i.e. 
54 28 0464 1 MOVC R4,(R5),= 3; append member onto end of group name 
0134 DA4O peer ! 8 @FWASQ_DIR1+4(R10)CRO] ; and then strip the whole thing off 
51 2E AA 9A been 1230 10$: MOVZBL FWASB_DIRLEN(R10) ,R1 : e number of slots in use 
51 D7 O46F 1231 DECL R1 3; Backup over Last slot 
13 19 0471 1 § BLSS 0 3; branch if none left 
2E AA 51 90 ots 1 MOVB R1,FWASB BERL ENCRI®) 3; store updated slots in use 
51 0130 CA41 7E 0477 1234 MOVAQ FWA IR1(R10)CR1],R1 ; address of stripped descriptor 
54 61 7D 047d 1235 Ova (R1), 3 return descriptor to caller 
61 B4 0480 1236 CLRW (R1) : zero length of FWA descriptor 
50 01 dO 04 ¢ 1237 MOVL #1,R0 : indicate success and 
05 Be 3 ! 8 RSB 3 return 
50 D4 ott 1240 90$ CLRL RO 3 return error - no names left 
05 0488 1241 RSB 
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Woe O00 PREV_PATTERN, Backup to Previous hentere -SEP-1 1382 90: $9: ¢] YRMS SRCIRMOVILD MAR: 1 . a vo 
re ; ] rf -SBTTL PREV_PATTERN, Backup to Previous Pattern Token 
te 15a 3 
4 3 ¢} ; PREV_PATTERN: backup to previous pattern token 
re 2 i i3 : backup one token in the pattern string. | 
4 3 : : inputs: 
rt 9 : : r8 = swb ac ess 
4 , : : outputs: 
4 } iH : r0 = false if no tokens left to strip, else true 
489 1259 ° 
489 1 + PREV_PATTERN: 
3¢ 8s AB 7D 0489 1261 mOvVa SWBSQ_PATTERN(R8) ,R2 3 get string descriptor 
. 2) € 4 9A 0480 1 6 MOVZBL pvese_ PPOS(R8),R1 i: current offset into strin 
3 13 0491 126 BEQL 0$ ; branch if already at star 
03 51 D1 0493 1264 CMPL R1,43 3; if the previous token is less than 
18 19 0496 1265 BLSS $° 3; two chars then it can't be an... 
3 FD A341 «—-9E «20498 «(1 06 MOVAB Fh aad at R2 : if the arevtaus token does not have 
6 2E2E 8F Bi 049D 126 CMPW wPat..”, (RO) 3 two consecutive dots it can't be an 
C 12 Q4A2 1268 BNEQ 5$ ; ellipsis, Likewise if it doesn’ t have 
FF A341 4 91 O4A4 1 +4 CMPB #*a".*®,-1(R3)CR1) 3; three consecutive dots it can't be an 
1 4A9 1270 BNEQ 5$ 3; ellipsis, but if previous token is an 
51 04 ¢C 4AB 1271 SUBL2 #3+1,R1 3; ellipsis, backup 4 places, and go 
of 1 AE 1 ie BRB 50$ 3; update the position offset 
1 D7 0480 1273 5$: DECL R1 : so, skip over it 
51 D7? 0482 1274 108 DECL R1 : skip to ye f character 
09 #419 0484 1275 BLSS wee 3 branch if at start of string 
2€ 63) 91 0486 1 1 CMPB (R3)CR1],#*A'.' 3; reached a dot? 
os 4S 12 QO4BA 127 BNEQ 10$ : branch if not 
3 A 96 Q4B8C 1278 INCB ats TOKENS_LEFT bs 3; increment monet tieets token counter 
02 a8 51° 01 4 4BF 1279 50$: ADDB3 R1,SWB$B_PPOS(R 3 store updated offset 
FF27 0 04C4 1280 BSBW PASE SATTERN 3 parse current pattern token 
50 +«~(01 ? Qcth : 1 aout 3 indicate success and 
50 D4 04CB 1 j 80$:  CLRL RO : indicate failure and 
05 O4CD 1284 RSB 3; retur 
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v04 APPEND_DIR, Append Rrecters to end of D eet 7 833938] RMS.SRCIRMOWILD.MAR; 1 : (38) v0é 
rt ] § -SBTTL APPEND_DIR, Append Directory to end of Directory Specification 
tee 15980 5 
tte | ay ; APPEND_DIR: append directory to end of directory specification 
4cE 1 35 5 this routine appends a directory name to the end 
ri} : 37 3 of the current directory spec being assembled. 
tte } 32 3 inputs: 
4CE 1 39 s r4/r5 = descriptor of directory name. 
4CE 1 38 : ri = fwa address 
4CE 1299 ; r8 = swb address 
O4CE 1300 ; 
Rees 1301 ; outputs: 
4CE 1 8 3 
4CE 1 8 3 ri-r3 destroyed 
4CE 1304 ;-- 
4CE 1305 
O4CE 1 88 APPEND_DIR: 
08 6A i E1 O4CE 130 BBC #FWASV_GRPMBR,(R10),10$ ; branch if not uic format 
54 0 DO 04D2 1308 MOVL #3,R4 ; only 3 characters in each part 
o> 0 Ree 1309 BSBB 10$ 3 spgene he portion 
55 54 CO Q4D7 1310 ADDL2 = R4,R5 ; skip to member portion of string 
O4DA 1311 3; and append it by falling thru 
2E AA 9A O4DA 1316 108: MOVZBL FWASB_DIRLEN(R10) ,RO 3 get number of names in use 
51 0130 CA4O 7E O4DE 131 MOVAQ FWAS$Q-DIR1(R10)CROJ,R1 : address of next slot descriptor 
61. 54 BO O4E4 1314 MOVW = R4,, (RT) ; set length in descriptor ; 
50 04 A1 00 Que? 1315 MOVL  4(R1),RO : get address of buffer from descriptor 
7E 54 7D O4EB 1 1 MOVa R4,-(SP 3 Save input descriptor 
60 65 54 28 Q4EE 131 MOVC3 R4,(R5),(RO) : move string into buffer 
54 8E& 7D berg 1318 MOVQ (SP)+,R : restore input descriptor 
2E AA 96 = (O4F5) «1319 INCB FWASB_DIRLEN(R10) ; increment names in use 
05 O4F8 1320 RSB 3 return 
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SET_BASE: find base directory and determine its position 


the base directory wil! either be the MFD, if the very first pattern 
token is wild, or the Last nonwild name after finding either the first 
wild token in the pattern oering. or the end of the pattern eerie: 
descriptors are created in the FWA, for each of the leading nonwild 
names encountered up to and including the base directory. the DID of 
the once directory is then set in the FIB. upon return, the current 
token will be the first wild token encountered, or the end of the 
pattern string if all tokens encountered were nonwild. 


inputs: 


W 
wa address 


o 
nu 
aw 


outputs: 


rO0 = true if base directory DID has been found 
false otherwise 
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SET_BASE: 

68 BBS yes WILD, (R8),- if token is wild, then find DID 
MOVZBL SWBSB_PATLEN(R8) ,R4 ; get length of current token 
MOVZBL SWBSB_PPOS( K get offset to current token 
ADDL2 SWBS$Q PATTERN+4(R8) ,R5 compute address of current token 

SBB APPEND_DIR sprers token to directory spec 
BSBW NEXT PATTERN skip to next pattern token 

TSTB SWBSB_PATLEN(R8) continue as Long as there are 
BNEQ SET_BASE nonwild tokens to copy 
drop through to FIND_DIR 
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! : 6 -SBTTL FIND_DIR, Determine Current Directory Position 
13 13¢4 3 
31 69 ; FIND_DIR 
2] ! i ; Determine current directory position 
215 4 34 : Determine the did of the current result directory 
3} ! oy 3 specification. 
3} ! ie ; inputs: 
513 1374: r8 = swb address 
513 13575 ; r9_ = ifab address 
B21 ! 6 : ri10 = fwa address 
051 £8 > outputs: 
0513 +1380 ; r0 = status 
BI ! + 3 the did in the fib is set. 
8] 1388 ; registers r4,r5,r8 are saved. 
05135 1384 ;-- 
O813 1386 | 
051 1307 FIND_DIR: 
2—E AA «95 «(0513 «+1388 TST FWASB_DIRLEN(R10) ; if the directory specification is 
2 § 0516 1352 BNEQ 20 3 not empty then setup to find the DID 
6A A 0518 1390 BBS #FWASV_ROOT_DIR,(R10),- ; if there was a root directory then 
0D 0518 1391 10$ : get the DID the hard way 
FE91 CF DO O51C 1 8 MOVL W*MFD_FID,- ; if the directory speci t tcetion is 
O1FE CA 052 133 FWAST_F IBBUF +- 3 casty then the DID defaults to the 
05 1394 F IBSW_DID(R10) ; DID of the MFD 
0202 CA B4 O5 1395 CLRW FWAST_F IBBUF +- 3 
05 1 38 F IBSW_DID_RVN(R10) ; 
33. 11 «+0527 «+139 BRB 40$ 3 go return success 
3 1 
529 1400 :; In order to get the DID of the rooted MFD we force SETDID to stop searching 
: 4 1408 3; directories by clearing the length of the first normal directory descriptor 
529 1403 * 
ot QCA ODD 529 1408 10$: PUSHL Funse 91h} 119} 3; save it the Length 
130 CA D4 52D 1405 CLRL FWASQ_DIR1(R10) 3; clear it 
7 10 0531 1406 BSBB 20 : call SETDID to find the DID 
0130 CA 8EDO 05 ; 128 POPL FWASQ_DIR1(R10) : restore the Length 
1F 0 611) OS ; 1008 BRB 30$ 3 exit 
0130 8F 6B 3 A 1410 208: PUSHR #*M<R4,R5,R8> ; save registers R4-R8 and the wildcard 
0204 CA DD O53E 1411 PUSHL FWAST_FI13BUF+- > context over DID lookup by pushing 
54 aL FIBSL_WCC(R10) ; them on the current stack 
58 4A9 D0 0542 141 MOVL IFBSL-LAST_FAB(R9),R&8 =; obtain the address of the FAB 
00009060 Ft 8 ¢ 1414 JSB Rnsee Tole ALT : set DID in the FI 
0204 CA 8ED 4C 1415 POPL FWAST_F IBBUF +- 3 restore registers R4-R8 and the 
22) 1618 FIBSL wey 10) : wildcard context, saved over DID 
0130 8F BA 0551 141 POPR #*M<RZ,RS,RB> ; lookup, from the current stack 
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“hbo FIND_DIR, Determine Current Directory re ~SEp- 1 984 2 98 £39: ¢} YRMS. SRCIRMOWILD.MAR; 1 3) 
04 €0 ; 1918 BBS #IMP$V [geunooun. = : if 1/0 Rundown is in progress 
88 98 141 (R11), T00$ 3 then oa bee " premenuress sborted 
9 9 14 308: BLBC ~=—_s«RO0, 90 : branch if a 
1421 40$: SSB #SWBSV_VALID_DID, (R8) ; set the valid DID obit in the SwB 
50 01 O 60 14 MOVL #1,R0 ; otherwise indicate success 
0 o7 1? 7 90$: RSB 3; and return 
58 246 Aa9 00 64 1425 100$: MOVL IFBSL_LAST_FAB(R9),R8 ; abort by obtaining the address of the FAB 
568 14 § RMSERR NMF : serting 3 a default error of no more 
56D 14 : files both in RO and in the FAB, 
05 0560 1428 RSB ; and returning 
Baek 1429 
56E 1430 . END 
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RMOWILD 
Symbol table 
FSCBSV_EL 
FWASB_5 
FWASB_ 
FWASC 
IFBSL_RNS 
IMPS$V_IOR 
10$_ACCESS 
Pay 
PREV _ 
PREV_PATTERN 
RMSFCPFNC 
RMSSETDID 
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PSECT name Al Location PSECT No. Attributes 


- ABS. 00000000 < Q.) 00 ¢ 0.) NOPIC USR CON ASS LCL po ate NOEXE NORD NOWRT NOVEC BYTE 
RMSRMSF ILENAME QOOOS6E ( 1390.) 01 ¢ 1.) PIC USR CON REL GBL NO EXE RD NOWRT NOVEC BYTE 
SABSS 0000000 ( 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


$eooecceeeccecccccccccccns 


Phase Page faults CPU Time Elapsed Time 


Initialization 30 00:00:00.09 00 :00:00.65 
ponnene processing 115 00:00: $9 8:8: 4.45 
540 00:00:22.2 0:00:49.62 

Synbol table sort 2 00:00:03.47 00:00:05.41 
s2 26 00:00:05.45 00:00:12.24 
Susbot table output 12 00:00:00.14 00:00:00.48 
Psect synopsis output § 00:00:00.02 00:00:00.05 
Cross-reference output es Sa a Bp: By 208-89 
Assembler run totals 966 00:00:32.26 00:01:13.07 


e working set Limit was 1950 pages. 
1358y0 bytes (250 pages) of virtual memory were used to buffer the intermediate code. 
There were 120 pages of symbol table space oh ecaree to hold 2295 non-local and 96 Local symbols. 
source Lines were read in Pass 1, produci ng 16 object records in Pass 2. 
27 pages of virtual memory were used to define 26 macros. 


wee ewe Sew DB OTe eB em ew newman} 


Macro Library name Macros defined 


$255$DUA28 d ot iy ‘ees -h -MLB; : 13 
$255$DUA Age: ES MLB; 1 1 
$255$DUA SYS. IBISTARLET. ALB; 2 38 


TerAcs (all Libraries) 

2427 GETS were required to define 22 macros. 

There were no errors, warnings or information messages. 

MACRO/LIS=LIS$:RMOWILD/OBJ=OBJ$:RMOWILD MSRC$:RMOWILD/UPDATE=(ENH$:RMOWILD) +EXECML$/LIB+LIB$:RMS/LIB 
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